home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
095
/
rfix0326.arc
/
CNFG0326.MRG
< prev
next >
Wrap
Text File
|
1987-03-24
|
8KB
|
174 lines
* Merge this against config.bas Date 3-15-1987 Size 182016 bytes
* ------------[ Created 03-23-1987 18:16:56 ]------------
* REPLACING old line(s) by new
15710 CLS
GOSUB 15780
A$ = "RBBS-PC to use modem commands you specified as follows:"
IF M14$ = "YES" THEN _
A$ ="RBBS-PC to use standard modem commands as follows:"
PRINT A$
PRINT ""
PRINT "1. Reset the modem : " + USER.RESET.COMMAND$
PRINT ""
PRINT "2. Initialize the modem : " + USER.INIT.COMMAND$
PRINT " Note: End item 2 with:"
* ------[ first line different ]------
PRINT " S0=1Q0X1 if answer on 0 rings" ' TF032101
PRINT " S0=254 if answer on >0 rings (no ring-back)"
PRINT " S0=255 if answer on >0 rings (with ring-back)"
PRINT ""
PRINT "3. Count the number of rings : " + USER.COUNT.RINGS.COMMAND$
PRINT ""
PRINT "4. Answer the phone : " + USER.ANSWER.COMMAND$
PRINT ""
PRINT "5. Take the phone off the hook : " + USER.GO.OFFHOOK.COMMAND$
PRINT ""
PRINT "6. Clear the modem's firmware : " + USER.FIRMWARE.CLEAR.CMND$
PRINT ""
PRINT "7. Initialize modem's firmware : " + USER.INITIALIZE.COMMAND$
PRINT " Note: End item 7 with:"
PRINT " Q1 if item 2 ends with S0=255"
PRINT ""
PRINT "8. Write to modem's firmware : " + USER.FIRMWARE.WRITE.CMND$
XX$ = "Select command string to change (1 to 8, CR to end)"
GOSUB 50345
LINE INPUT;HJ$
IF HJ$ = "" THEN _
RETURN
IF VAL(HJ$) <1 OR VAL(HJ$) > 8 THEN _
GOTO 15710
I = VAL(HJ$)
XX$ = "Enter modem command for item" + STR$(I) + " :"
GOSUB 50345
LINE INPUT;HJ$
GOSUB 50654
ON I GOTO 15712,15714,15716,15718,15720,15722,15724,15726
* REPLACING old line(s) by new
15790 FIRMWARE.INITIALIZE.COMMAND$= "AT&C1&D3B1E0V1M0S0=0&T5"
FIRMWARE.CLEAR.COMMAND$ = "AT&F"
FIRMWARE.WRITE.COMMAND$ = "&W"
USER.ANSWER.COMMAND$ = MODEM.ANSWER.COMMAND$
USER.COUNT.RINGS.COMMAND$ = MODEM.COUNT.RINGS.COMMAND$
USER.GO.OFFHOOK.COMMAND$ = MODEM.GO.OFFHOOK.COMMAND$
* ------[ first line different ]------
USER.INIT.COMMAND$ = MODEM.INIT.COMMAND$ ' TF031601
USER.RESET.COMMAND$ = MODEM.RESET.COMMAND$
USER.INITIALIZE.COMMAND$ = FIRMWARE.INITIALIZE.COMMAND$
USER.FIRMWARE.CLEAR.CMND$ = FIRMWARE.CLEAR.COMMAND$
USER.FIRMWARE.WRITE.CMND$ = FIRMWARE.WRITE.COMMAND$
RETURN
'
' *****************************************************************************
' * SHOULD USERS BE REMINDED OF THE MESSAGES THAT THEY LEFT? *
' *****************************************************************************
'
* REPLACING old line(s) by new
16180 CALL GETYESNO ("Use the SHELL command to invoke protocol drivers?",GO.TO.SHELL$)
IF GO.TO.SHELL$ = "YES" THEN _
GO.TO.SHELL$ = "SHELL" : _
RETURN
IF GO.TO.SHELL$ = "NO" THEN _
* ------[ first line different ]------
GO.TO.SHELL$ = "EXIT RBBS-PC" ' TF032301
RETURN
'
' *****************************************************************************
' * SHOULD "DOORS" BE AVAILABLE? *
' *****************************************************************************
'
* REPLACING old line(s) by new
59020 OPEN "O",#1,CONFIG.FILENAME$
IF INSTR(MO$,":") < 1 THEN _
MO$ = MO$ + ":
IF INSTR(SJ$,":") < 1 THEN _
SJ$ = SJ$ + ":
IF INSTR(DRIVE.FOR.BULLETINS$,":") < 1 THEN _
DRIVE.FOR.BULLETINS$ = DRIVE.FOR.BULLETINS$ + ":
T$ = DIRECTORY.EXTENTION$
IF INSTR(DIRECTORY.EXTENTION$,".") THEN _
T$ = MID$(DIRECTORY.EXTENTION$,INSTR(DIRECTORY.EXTENTION$,".") + 1,LEN(DIRECTORY.EXTENTION$))
S$ = UPLOAD.DIRECTORY$
IF INSTR(UPLOAD.DIRECTORY$,".") THEN _
S$ = MID$(UPLOAD.DIRECTORY$,1,INSTR(UPLOAD.DIRECTORY$,".")-1)
DIRECTORY.EXTENTION$ = T$
UPLOAD.DIRECTORY$ = S$
IF DOWNLOAD.TO.SUBDIR$ = "NO" THEN _
DNLD.SUB = 0 : _
FOR I = 1 TO 99 : _
DNLD$(I) = "" : _
NEXT
IF UPLOAD.TO.SUBDIR$ = "NO" THEN _
UPLOAD.SUBDIR$ = DRIVE.FOR.UPLOADS$ + ":"
IF UPLOAD.TO.SUBDIR$ = "YES" AND UPLOAD.SUBDIR$<>"" THEN _
DRIVE.FOR.UPLOADS$ = UPLOAD.SUBDIR$
IF REQUIRED.RINGS = 0 AND _
* ------[ first line different ]------
MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,3)<>"1Q0X1" THEN _ ' TF032101
MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,3)="1Q0X1" ' TF032101
IF REQUIRED.RINGS > 0 AND _
MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,3)="0 " THEN _
MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,3)="254"
'
' *****************************************************************************
' * WRITE OUT THE "RBBS-PC.DEF" FILE WITH THE SYSOP'S SPECIFIED CONFIGURATION *
' *****************************************************************************
'
* REPLACING old line(s) by new
60010 REM * HANDLE ERROR CONDITIONS *
' PRINT ERR,ERL : STOP
IF ERR = 53 AND ERL = 30010 THEN _
RESUME 30030
IF ERR = 58 AND ERL = 30010 THEN _
RESUME 30020
IF ERR = 62 AND _
(ERL = 11600 OR _
ERL = 11620 OR _
ERL = 11640 OR _
ERL = 11660 OR _
ERL = 11680 OR _
ERL = 11700 OR _
ERL = 11705 OR _
ERL = 11706) THEN _
PRINT CONFIG.FILENAME$ + _
" from a version earlier than CPC15.1 on default drive." : _
PRINT "Please delete and rerun CONFIG." : _
RESUME 60340
* ------[ first line different ]------
IF ERL = 15780 AND ERR = 5 AND _ ' TF031601
INSTR(USER.INIT.COMMAND$,"S0=") = 0 THEN _ ' TF031601
RESUME 16073 ' TF031601
IF ERL = 31000 AND ERR = 58 THEN _
KILL A$ : _
RESUME 31000
IF ERL = 31030 AND ERR = 58 THEN _
KILL A$ : _
RESUME 31030
IF ERL = 22120 AND ERR = 6 THEN _
RESUME 22100
IF ERL = 24750 AND ERR = 58 THEN _
KILL A$ : _
RESUME 24750
IF ERL = 31020 THEN _
PRINT "Unable to kill ";MAIN.MESSAGE.FILE$;". Error";STR$(ERR):_
RESUME 31035
IF (ERL = 50490 OR ERL = 50540) AND ERR = 58 THEN _
RESUME 50500
IF ERL = 50490 OR ERL = 50540 THEN _
RESUME 15230
IF ERR = 61 THEN _
PRINT "ERROR - IBM DOS DISKETTE FULL " : _
RESUME 60340
IF ERR = 67 THEN _
PRINT "ERROR - IBM DOS DIRECTORY FULL" : _
RESUME 60340
IF ERR = 70 THEN _
PRINT "DISKETTE IN DRIVE IS WRITE PROTECTED" : _
RESUME 60340
IF ERR = 71 THEN _
PRINT "DRIVE DOOR OPEN OR MISSING DISKETTE" : _
RESUME 60340
IF ERR = 72 THEN _
PRINT "ERROR - UNFORMATTED IBM DOS DISKETTE IN DRIVE" : _
RESUME 60340
PRINT "+++ Error";ERR;" in line ";ERL "occurred at " TIME$ " on " DATE$